home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1998 #6 / 1998 CD 6 (Gul).iso / main.dir / 00237.ls < prev    next >
Encoding:
Text File  |  1996-02-08  |  2.1 KB  |  85 lines
  1. on checkMainRollover2
  2.   global gLastRolledOn, gLastRolledCast
  3.   repeat with i = 6 to 14
  4.     if rollOver(i) = 1 then
  5.       if gLastRolledOn = (i - 5) then
  6.         exit
  7.       end if
  8.       if gLastRolledOn <> 0 then
  9.         if i <> 6 then
  10.           resetDrawer()
  11.         end if
  12.         set the castNum of sprite 15 to the number of cast "nullCast"
  13.       end if
  14.       if i = 14 then
  15.         if label("Mar Loop") = the frame then
  16.           exit
  17.         else
  18.           NextScreen()
  19.           puppetSprite(15, 1)
  20.           set gLastRolledOn to 0
  21.           go("Marilyn")
  22.           abort()
  23.         end if
  24.       end if
  25.       set the castNum of sprite 15 to the number of cast ("MainHL" & string(i + 2))
  26.       updateStage()
  27.       set gLastRolledOn to i - 5
  28.       exit
  29.     end if
  30.   end repeat
  31.   if gLastRolledOn = 0 then
  32.     exit
  33.   end if
  34.   resetDrawer()
  35.   set the castNum of sprite 15 to the number of cast "nullCast"
  36.   updateStage()
  37.   set gLastRolledOn to 0
  38. end
  39.  
  40. on SetUpRollover2
  41.   puppetSprite(15, 1)
  42.   set the stretch of sprite 15 to 0
  43.   preLoadCast("MainHL7")
  44.   preLoadCast("MainHL8")
  45.   preLoadCast("MainHL9")
  46.   preLoadCast("MainHL10")
  47.   preLoadCast("MainHL11")
  48.   preLoadCast("MainHL12")
  49.   preLoadCast("MainHL13")
  50.   preLoadCast("MainHL14")
  51.   preLoadCast("MainHL15")
  52. end
  53.  
  54. on resetDrawer
  55.   if the name of cast the castNum of sprite 6 = "drawer closed" then
  56.     exit
  57.   else
  58.     if the name of cast the castNum of sprite 6 = "MainHL8" then
  59.       exit
  60.     end if
  61.   end if
  62.   puppetSprite(15, 1)
  63.   set the castNum of sprite 14 to the number of cast "drawer closed"
  64.   puppetTransition(4, 2, 6, 1)
  65.   updateStage()
  66. end
  67.  
  68. on DrawerClick
  69.   puppetSprite(15, 1)
  70.   if the name of cast the castNum of sprite 15 = "drawer closed" then
  71.     set the castNum of sprite 15 to the number of cast "MainHL8"
  72.     updateStage()
  73.     set the castNum of sprite 15 to the number of cast "drawer open"
  74.     exit
  75.   else
  76.     if the name of cast the castNum of sprite 15 = "MainHL8" then
  77.       updateStage()
  78.       set the castNum of sprite 15 to the number of cast "drawer open"
  79.       exit
  80.     else
  81.       go("65", "06")
  82.     end if
  83.   end if
  84. end
  85.